home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / brueche kuerzen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  124 b   |  4 lines
  1. 10 input"zaehler";z:input"nenner ";n:a=z:b=n
  2. 20 r=a-int(a/b)*b:a=b:b=r:ifr>0then20
  3. 30 print:print"gekuerzt:":print"zaehler:"z/a:print"nenner: "n/a
  4.